﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class ListasBL

    Private _ListasDA As ListasDA = Nothing

    Function Add(ByVal listasBE As ListasBE, Optional ByVal isInternal As Boolean = Nothing) As String
        Return _ListasDA.Add(listasBE, isInternal)
    End Function

    Function Edit(ByVal listasBE As ListasBE) As String
        Return _ListasDA.Edit(listasBE)
    End Function

    Function Delete(ByVal idLista As Short) As String
        Return _ListasDA.Delete(idLista)
    End Function

    Function List() As DataTable
        Return _ListasDA.List()
    End Function

    Function list(ByVal idLista As Short) As DataTable
        Return _ListasDA.List(idLista)
    End Function

    Function TestQuery(ByVal stringConnection As String, ByVal strQuerySql As String) As DataTable
        Return _ListasDA.TestQuery(stringConnection, strQuerySql)
    End Function

    Sub New()
        _ListasDA = New ListasDA
    End Sub
End Class
